00100	C DISPLAYS AND PLOTS TVIOF PROCESSED FILES.
00300
00400	C  TYPE <CR> TO REPEAT LAST FILE READ IN.
00500	C  TYPE  'X'  TO EXIT, TYPE  'SAVE'  TO SAVE FILE FOR DRAWING PROG.
00510	C  TYPE  'T'  TO TYPE LIST OF ALL YOUR CURRENT INPUT.
00520	C  TYPE 'FUNC NM'  WHERE NM = FUNC FILE NAME FOR DISTORTION FUNCTION.
00530	C  TYPE 'STEP N'  WHERE N = STEPS DISPLACEMENT FOR 2ND AND 3RD RUNS.
00540	C  TYPE 'CENTR F' WHERE F = CENTER FOR DISTORTION FUNC. (0 TO 1.0?)
00550	C  TYPE 'CLEAR' TO REINITIALIZE DISPLAY.
00600
00720		COMMON/JOMMAC/ILINE,JLINE,KSIDE,MSIDE,NEWZ
00800		COMMON/DRW/JDRW(2000)
00810		COMMON/DDP/IDP1(4000),INP(10,20)
00910		COMMON/FU/FUJ(512),JJX,RDIV,ADML
01200
01400		INTEGER FLINE,RSIDE,FILE
01500	CC	LOGICAL FUNCTION ADMISS
01600	CC	ADMISS(DTA)=DTA.EQ.-7.OR.(1.LE.DTA.AND.DTA.LE.10)
01700		JDRW(1)=1
01800		JDRW(3)=0
02100	83	FORMAT(2A5)
02200	204	FORMAT(' TYPE THE FILE NAME'/)
02300	330	TYPE 204
02400		NEWEND=0
02500		ACCEPT 83,FILE,JFU
02501		IF(FILE.NE.'STEP')GO TO 20
02505		REREAD 21,N,JJX
02509		GO TO 330
02513	21	FORMAT(A5,I)
02517	20	IF(FILE.NE.'CENTR')GO TO 22
02521		REREAD 23,N,RDIV
02522	C  TYPE +100 FOR ADDING INSTEAD OF MULT.
02523		ADML=0
02524		IF(ABS(RDIV).LT.100)GO TO 330
02525		ADML=-1
02526		RDIV=AMOD(RDIV,100.)
02527		IF(RDIV.EQ.0)RDIV=1.
02528		GO TO 330
02529	23	FORMAT(A5,F)
02533	22	IF(FILE.EQ.'FUNC')GO TO 13
02560	C  YOU CAN TYPE FUNC FILE NAME AFTER 'FUNC '!
02570		IF(FILE.NE.'CLEAR')GO TO 24
02575		CALL DPYCLR
02580		CALL DPYSET(1,IDP1,4000)
02910		GO TO 330
02920	24	IF(NEWZ.EQ.1.AND.FILE.EQ.' ')FILE=JFILE
02930		IF(FILE.EQ.JFILE)GO TO 252
02940		IF(FILE.EQ.'T')GO TO 1
02960		IF(FILE.NE.'X')GO TO 4
03000		IF(JDRW(3).EQ.0)CALL EXIT
03100		CALL DD
03150	C  DD FEEDS DRAWING PROGRAM  (SOMEDAY)
03200	C  GIVE BLANK FILE NAME TO USE SAME ONE OVER, X=EXIT.
03300	4	REWIND 1
03350		IF(LOOKD(FILE).GE.0)GO TO 330
03400		CALL IFILE(1,FILE)
03500		CALL READR(NEWEND)
03510		IF(NEWZ.EQ.1)JFILE=FILE
03550	252	CALL PLOU(NEWEND)
03700		GO TO 330
03800	1	NEWEND=-1
03900		CALL PLOU(NEWEND)
04000		GO TO 330
04100	
04200	3	REWIND 21
04300	6	K=JDRW(1)+1
04400		
04500		IF(K.LE.201)GO TO 5
04600		JDRW(1)=200
04700		K=201
04800	5	WRITE(21,40)K
04900	40	FORMAT(' 9999  1 ',I4,' 0 0 0 0 0 0 0 0')
05000		J=7
05100		L=8
05200		DO 12 K=1,JDRW(1),8
05300		IF(K+J.LT.JDRW(1))GO TO 12
05400		J=JDRW(1)-K
05500		L=J+1
05600	12	WRITE(21,11)L,(JDRW(N),N=K,K+J)
05700		CALL EXIT
05800	11	FORMAT(' 9999',I3,8I10)
05900	13	CALL DPFUN(JFU)
06110		GO TO 330
06140		END